home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / theloa1a / frm_load.frm (.txt) < prev    next >
Visual Basic Form  |  1999-10-13  |  14KB  |  396 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H80000004&
  4.    Caption         =   "The Loader"
  5.    ClientHeight    =   5370
  6.    ClientLeft      =   165
  7.    ClientTop       =   735
  8.    ClientWidth     =   6915
  9.    FillColor       =   &H00C0C0C0&
  10.    Icon            =   "frm_Loader.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   5370
  14.    ScaleWidth      =   6915
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton cmdPropProg2 
  17.       Caption         =   "Properties"
  18.       Height          =   375
  19.       Left            =   120
  20.       Style           =   1  'Graphical
  21.       TabIndex        =   15
  22.       Top             =   2400
  23.       Width           =   1095
  24.    End
  25.    Begin VB.CommandButton cmdPropProg3 
  26.       Caption         =   "Properties"
  27.       Height          =   375
  28.       Left            =   120
  29.       Style           =   1  'Graphical
  30.       TabIndex        =   14
  31.       Top             =   3120
  32.       Width           =   1095
  33.    End
  34.    Begin VB.CommandButton cmdPropProg4 
  35.       Caption         =   "Properties"
  36.       Height          =   375
  37.       Left            =   120
  38.       Style           =   1  'Graphical
  39.       TabIndex        =   13
  40.       Top             =   3840
  41.       Width           =   1095
  42.    End
  43.    Begin VB.CommandButton cmdPropProg5 
  44.       Caption         =   "Properties"
  45.       Height          =   375
  46.       Left            =   120
  47.       Style           =   1  'Graphical
  48.       TabIndex        =   12
  49.       Top             =   4560
  50.       Width           =   1095
  51.    End
  52.    Begin VB.CommandButton cmdPropProg1 
  53.       Caption         =   "Properties"
  54.       Height          =   375
  55.       Left            =   120
  56.       Style           =   1  'Graphical
  57.       TabIndex        =   11
  58.       Top             =   1680
  59.       Width           =   1095
  60.    End
  61.    Begin VB.CommandButton cmdProg5 
  62.       Caption         =   "Program no. 5"
  63.       Height          =   615
  64.       Left            =   1440
  65.       Style           =   1  'Graphical
  66.       TabIndex        =   5
  67.       Top             =   4440
  68.       Width           =   1695
  69.    End
  70.    Begin VB.CommandButton cmdProg4 
  71.       Caption         =   "Program no. 4"
  72.       Height          =   615
  73.       Left            =   1440
  74.       Style           =   1  'Graphical
  75.       TabIndex        =   4
  76.       Top             =   3720
  77.       Width           =   1695
  78.    End
  79.    Begin VB.CommandButton cmdProg3 
  80.       Caption         =   "Program no. 3"
  81.       Height          =   615
  82.       Left            =   1440
  83.       Style           =   1  'Graphical
  84.       TabIndex        =   3
  85.       Top             =   3000
  86.       Width           =   1695
  87.    End
  88.    Begin VB.CommandButton cmdProg2 
  89.       Caption         =   "Program no. 2"
  90.       Height          =   615
  91.       Left            =   1440
  92.       Style           =   1  'Graphical
  93.       TabIndex        =   2
  94.       Top             =   2280
  95.       Width           =   1695
  96.    End
  97.    Begin VB.CommandButton cmdProg1 
  98.       Caption         =   "Program no. 1"
  99.       Height          =   615
  100.       Left            =   1440
  101.       MaskColor       =   &H00808080&
  102.       Style           =   1  'Graphical
  103.       TabIndex        =   1
  104.       Top             =   1560
  105.       Width           =   1695
  106.    End
  107.    Begin VB.Label Label1 
  108.       Caption         =   " DIRECTORY PATH"
  109.       BeginProperty Font 
  110.          Name            =   "Charlesworth"
  111.          Size            =   14.25
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H00C00000&
  119.       Height          =   495
  120.       Left            =   3360
  121.       TabIndex        =   16
  122.       Top             =   960
  123.       Width           =   2895
  124.    End
  125.    Begin VB.Label lblDir5 
  126.       Height          =   495
  127.       Left            =   3480
  128.       TabIndex        =   10
  129.       Top             =   4440
  130.       Width           =   2775
  131.    End
  132.    Begin VB.Label lblDir4 
  133.       Height          =   495
  134.       Left            =   3480
  135.       TabIndex        =   9
  136.       Top             =   3720
  137.       Width           =   2775
  138.    End
  139.    Begin VB.Label lblDir3 
  140.       Height          =   495
  141.       Left            =   3480
  142.       TabIndex        =   8
  143.       Top             =   3000
  144.       Width           =   2775
  145.    End
  146.    Begin VB.Label lblDir2 
  147.       Height          =   375
  148.       Left            =   3480
  149.       TabIndex        =   7
  150.       Top             =   2400
  151.       Width           =   2775
  152.    End
  153.    Begin VB.Label lblDir1 
  154.       Height          =   375
  155.       Left            =   3480
  156.       TabIndex        =   6
  157.       Top             =   1680
  158.       Width           =   2775
  159.    End
  160.    Begin VB.Label lblTitle 
  161.       Caption         =   "Welcome to ""THE LAUNCHER"""
  162.       BeginProperty Font 
  163.          Name            =   "PosterBodoni BT"
  164.          Size            =   18
  165.          Charset         =   0
  166.          Weight          =   700
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       ForeColor       =   &H00C00000&
  172.       Height          =   615
  173.       Left            =   240
  174.       TabIndex        =   0
  175.       Top             =   120
  176.       Width           =   8775
  177.    End
  178.    Begin VB.Menu mnufile 
  179.       Caption         =   "&File"
  180.       Begin VB.Menu mnuGoto 
  181.          Caption         =   "&Goto"
  182.          Begin VB.Menu mnuProp1 
  183.             Caption         =   "Program &1 Properties"
  184.          End
  185.          Begin VB.Menu mnuProp2 
  186.             Caption         =   "Program &2 Properties"
  187.          End
  188.          Begin VB.Menu mnuProp3 
  189.             Caption         =   "Program &3 Properties"
  190.          End
  191.          Begin VB.Menu mnuProp4 
  192.             Caption         =   "Program &4 Properties"
  193.          End
  194.          Begin VB.Menu mnuProp5 
  195.             Caption         =   "Program &5 Properties"
  196.          End
  197.       End
  198.       Begin VB.Menu mnuEnd 
  199.          Caption         =   "&End"
  200.          Shortcut        =   ^{F4}
  201.       End
  202.    End
  203.    Begin VB.Menu mnuHelp 
  204.       Caption         =   "&Help"
  205.       Begin VB.Menu mnuAbout 
  206.          Caption         =   "&About"
  207.       End
  208.       Begin VB.Menu mnuBugs 
  209.          Caption         =   "&Known Bugs"
  210.       End
  211.       Begin VB.Menu mnutips 
  212.          Caption         =   "&Tips"
  213.       End
  214.    End
  215. Attribute VB_Name = "frmMain"
  216. Attribute VB_GlobalNameSpace = False
  217. Attribute VB_Creatable = False
  218. Attribute VB_PredeclaredId = True
  219. Attribute VB_Exposed = False
  220. Option Explicit
  221. Private Sub cmdProg1_Click()
  222. On Error GoTo error
  223. Dim directory1, program1 As String
  224. If lblDir1.Caption = "" Then
  225. MsgBox "I am sorry but you must specify a program. Select from the properties button!", vbExclamation, "Program error"
  226. ' this code executes the program specified by the user
  227. directory1 = lblDir1.Caption
  228. program1 = Shell(directory1, vbMaximizedFocus)
  229. End If
  230. Exit Sub
  231. error:  MsgBox Err.Description, vbCritical, "An error has occured"
  232. End Sub
  233. Private Sub cmdProg2_Click()
  234. On Error GoTo error
  235. Dim directory2, program2 As String
  236. If lblDir2.Caption = "" Then
  237. MsgBox "I am sorry but you must specify a program. Select from the properties button!", vbExclamation, "Program error"
  238. ' this code executes the program specified by the user
  239. directory2 = lblDir2.Caption
  240. program2 = Shell(directory2, vbMaximizedFocus)
  241. End If
  242. Exit Sub
  243. error:  MsgBox Err.Description, vbCritical, "An error has occured"
  244. End Sub
  245. Private Sub cmdProg3_Click()
  246. On Error GoTo error
  247. Dim directory3, program3 As String
  248. If lblDir3.Caption = "" Then
  249. MsgBox "I am sorry but you must specify a program. Select from the properties button!", vbExclamation, "Program error"
  250. ' this code executes the program specified by the user
  251. directory3 = lblDir3.Caption
  252. program3 = Shell(directory3, vbMaximizedFocus)
  253. End If
  254. Exit Sub
  255. error:  MsgBox Err.Description, vbCritical, "An error has occured"
  256. End Sub
  257. Private Sub cmdProg4_Click()
  258. On Error GoTo error
  259. Dim directory4, program4 As String
  260. If lblDir4.Caption = "" Then
  261. MsgBox "I am sorry but you must specify a program. Select from the properties button!", vbExclamation, "Program error"
  262. ' this c